1 CLOCK=100:SYS65517:IFPEEK(781)=22THEN10
2 POKE53280,0:POKE53281,0:PRINTCHR$(142):PRINTCHR$(8):X=15:SW=40:SS=1024
9 GOTO 20
10 X=6:POKE36879,8:SW=22
12 SS=4*(PEEK(36866)AND128)+64*(PEEK(36869)AND112)
20 GOSUB2000:DIMA(9),B(9),Z$(12),S(6):Y$="[219][192][214][206]"
30 DEF FND(X)=INT(RND(1)*X)+1:PRINT"":DC$=""
100 SS=SS+SW*5+X+1:PL=65520
105 X2$="[221] [221] [221] [221] [221] [221]"
107 X1$="[221]         [221]"
110 H$=MID$(STR$(Z),2):D$=MID$("[192][192][192]",1,LEN(H$)):PRINT"[147] HI":PRINT"[176]"D$"[174]"
112 PRINT"[221]"H$"[221]"
115 PRINT"[173]"D$"[189]":PRINTTAB(X)"[213][192][192][192][192][192][192][192][192][192][201]
120 [129]I[178]1[164]2:[153][163]X);X1$
130 [153][163]X)"(null) (null)TANRIGHT$ (null)TANRIGHT$ (null)":[153][163]X);X2$
160 [153][163]X);"(null) MID$TAN(null) MID$TAN(null) (null)":[130]:[153][163]X);X1$
210 [153][163]X)"MID$TANTANTANTANTANTANTANTANTAN(null)
215 WC$="":TM=CL:FORI=1TO9:A(I)=I:NEXT:GOSUB500
220 GOSUB1200:FORI=1TO9:B(I)=A(I):NEXT:N=1:FORI=0TO4:J=SW*I*2+SS:K=8
230 IFI/2=INT(I/2)THENJ=J+2:K=4
240 FORJ=JTOJ+KSTEP4:POKEJ,ASC(Z$(N))-128
250 N=N+1:NEXTJ:NEXTI:GOSUB700
260 FORI=9TO1STEP-1:P=FND(I):B(0)=B(I):B(I)=B(P):B(P)=B(0):NEXT
300 N=1:FORI=0TO2:FORJ=0TO8STEP4
310 POKESS+I*SW*4+J,B(N)+48:N=N+1:NEXTJ:NEXTI
320 C=0:RESTORE:FORI=1TO6:READN1,N2,N3,N4,N5,N6,N7
330 P1=B(N1):P2$=Z$(N2):P3=B(N3):GOSUB900
340 P2$=Z$(N4):P3=B(N5):GOSUB900:POKE781,N6:POKE782,N7+X-(I>3)
345 POKE783,0:SYS65520
350 IFA(N1)=B(N1)ANDA(N3)=B(N3)ANDA(N5)=B(N5)THENPRINT"";:C=C+1
355 PRINTS(I)"[146]";:NEXT:IFC=6THENPRINT:PRINT""TAB(X-1)"  YOU WIN!!  ":GOTO805
360 PRINT:PRINT""TAB(X-1)"SWAP         [157][157][157][157][157][157][157][157][157]";:GOSUB600:P1=D
370 PRINT"WITH";:GOSUB600:P2=D:P3=B(P1):B(P1)=B(P2):B(P2)=P3:GOTO300
500 REM P=SS-X-1+SW*3:FORI=1TO9:POKEP,A(I)+48:P=P+2:IFI/3=INT(I/3)THENP=P+*SW-6
501 P=SS-X+SW*3+1:FORI=1TO9:POKEP,A(I)+48:P=P+1:IFI/3=INT(I/3)THENP=P+SW-3
510 NEXT:RETURN
600 PRINT": [164]";
605 K=1
610 GETP$:IFP$<>""THEN660
620 K=K+1:IFK<63THEN610
630 TM=TM-1:GOSUB700:IFTM=0THEN800
635 IFTM<=20THENWC$=""
640 GOTO605
660 D=1
662 IFD<19THENIFP$<>MID$("123456789IOPKL:,./",D,1)THEND=D+1:GOTO662
664 IFD=19THEN610
666 IFD>9THEND=D-9
670 PRINT"[157][157][157]   [157][157][157]"D;:RETURN
700 POKE783,1:SYSPL:C1=PEEK(781):C2=PEEK(782)
710 POKE783,0:POKE781,0:POKE782,X+5:SYSPL
720 PRINT""WC$;MID$(STR$(TM),2)"[146] ";DC$
730 POKE781,C1:POKE782,C2:POKE783,0:SYSPL:RETURN
800 PRINT:PRINT"[145]"TAB(X-1)"  GAME OVER":GOSUB500
805 IFTM>ZTHENZ=TM
810 PRINTTAB(X-4)"ANOTHER GAME (Y/N)?"
820 GETA$:IFA$=""THEN820
830 IFA$="Y"THEN110
840 END
900 IFP2$="[219]"THENP1=P1+P3:RETURN
910 IFP2$="[192]"THENP1=P1-P3:RETURN
920 IFP2$="[214]"THENP1=P1*P3:RETURN
930 IFP3=0THENP1=-999:RETURN
940 P1=P1/P3:RETURN
1000 DATA 1,1,2,2,3,5,11,4,6,5,7,6,9,11,7,11,8,12,9,13,11
1010 DATA 1,3,4,8,7,16,-1,2,4,5,9,8,16,3,3,5,6,10,9,16,7
1200 K=1:FORI=0TO2:P1=FND(H+1)-1:P3=-99:GOSUB1500:A(I*3+1)=P1
1210 Z$(K)=MID$(Y$,P2,1):A(I*3+2)=P3:P1=P4:P3=-99:GOSUB1500
1220 Z$(K+1)=MID$(Y$,P2,1):A(I*3+3)=P3:K=K+5:S(I+1)=P4:NEXT:K=3
1230 FORI=1TO3:P1=A(I):P3=A(I+3):GOSUB1500:Z$(K)=MID$(Y$,P2,1):P1=P4:P3=A(I+6)
1240 GOSUB1500:Z$(K+5)=MID$(Y$,P2,1):K=K+1:S(I+3)=P4:NEXT
1500 F=0:C=0:IFP3<>-99THENF=1:GOTO1520
1510 IFF=0THENP3=FND(H+1)-1
1520 P2=FND(NO)
1525 ONP2GOTO1530,1540,1550,1560
1530 P4=P1+P3:RETURN
1540 P4=P1-P3:IFP4<0ANDNF=0THEN1580
1545 RETURN
1550 P4=P1*P3:RETURN
1560 IFP3=0THEN1580
1570 P4=P1/P3:IFP4=INT(P4)THENRETURN
1580 C=C+1:IFC<3THEN1510
1590 P2=FND(2)*2-1:GOTO1525
2000 PRINT"[147]":FORI=1TO42:READN:NEXT:L=0
2010 PRINTTAB(X-1)"MATH SCRAMBLE"
2020 READX$:IFX$="*"THEN2050
2025 IFX$="/"THENPRINT:L=0:GOTO2020
2030 IFL+LEN(X$)>=SWTHENPRINT:L=0
2040 L=L+LEN(X$)+1:PRINTX$"[160]";:GOTO2020
2050 PRINT:PRINTTAB(X-6)"PRESS ANY KEY TO START"
2060 GETP$:IFP$=""THEN2060
2070 PRINT"[147]"TAB(X-3)"ENTER LEVEL (1-4)"
2080 PRINT""TAB(X-6)"1) [219]  2) [192]  3) [214]  4) [206]"
2090 GETP$:IFP$<"1"ORP$>"4"THEN2090
2100 NO=VAL(P$):PRINT""TAB(X-5)"HIGHEST DIGIT TO USE?"
2110 GETP$:IFP$<"0"ORP$>"9"THEN2110
2120 H=VAL(P$):PRINT""TAB(X-6)"NEGATIVE NUMBERS (Y/N)?"
2130 GETP$:IFP$<>"Y"ANDP$<>"N"THEN2130
2140 NF=0:IFP$="Y"THENNF=1
2150 RETURN
3000 DATA SOLVE,THE,PROBLEMS,ON,THE,GRID,BY,MOVING,NUMBERS,AROUND.
3010 DATA SWAP,NUMBERS,BY,GIVING,THEIR,GRID,"POSITIONS:",/,/
3020 DATA"    123","     IOP",/
3030 DATA"    456"," OR  KL:",/
3040 DATA"    789","     ,./",/,/
3050 DATATIME,RUNS,OUT,IN,100,SECONDS.,GOOD,LUCK!
5000 DATA *